Carousel Volume 2 #1/carousel.iso/mactosh/hc/hcinheri.sit/Inheritance Path Stack/stack.txt

Text File | 1988-11-14 | 5KB | 187 lines

-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x0 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 2
-- first background id: 2710
-- card count: 2
-- first card id: 3730
-- list block id: 2066
-- print block id: 3545
-- font table block id: 0
-- style table block id: 0
-- free block count: 4
-- free size: 9440 bytes
-- total size: 24576 bytes
-- stack block size: 4608 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x00000000
-- modified by hypercard version: 0x00000000
-- opened by hypercard version: 0x01208000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x0000220000002200
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0xCC003300CC003300
-- patterns[4]: 0xCC883322CC883322
-- patterns[5]: 0xEE88BB22EE88BB22
-- patterns[6]: 0xEECCBB33EECCBB33
-- patterns[7]: 0xFFCCFF33FFCCFF33
-- patterns[8]: 0xFFEEFFBBFFEEFFBB
-- patterns[9]: 0xFFFFFFBBFFFFFFBB
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on startUp
  getHomeInfo
end startUp

on resume
  getHomeInfo
end resume

on getHomeInfo
  global stacks,applications,documents,userName
  set lockScreen to true
  set lockMessages to true
  push this card
  go to card "User Preferences" of stack "Home"
  put card field "User Name" into userName
  set userLevel to card field "User Level"
  set powerKeys to the hilite of button "Power Keys"
  set blindTyping to the hilite of button "Blind Typing"
  put field "paths" of card "stacks" into stacks
  put field "paths" of card "applications" into applications
  put field "paths" of card "documents" into documents
  pop card
  set lockScreen to false
  set lockMessages to false
end getHomeInfo

on searchScript pattern,stackName -- search all scripts of a stack
  set lockMessages to true
  if stackName is not empty then go to stack stackName

  if the script of this stack contains pattern
  then edit script of this stack

  repeat with i = 1 to the number of bkgnds
    go to card 1 of bkgnd i
    if the script of this bkgnd contains pattern
    then edit script of bkgnd

    repeat with j = 1 to the number of bkgnd buttons
      if the script of bkgnd button j contains pattern
      then edit script of bkgnd button j
    end repeat

    repeat with j = 1 to the number of bkgnd fields
      if the script of bkgnd field j contains pattern
      then edit script of bkgnd field j
    end repeat

  end repeat

  repeat with i = 1 to the number of cards
    go card i
    if the script of this card contains pattern
    then edit script of this card

    repeat with j = 1 to the number of card buttons
      if the script of card button j contains pattern
      then edit script of card button j
    end repeat

    repeat with j = 1 to the number of card fields
      if the script of card field j contains pattern
      then edit script of card field j
    end repeat

  end repeat
  set lockMessages to false
end searchScript

on m1
  push this card
  push this card
  answer "Create a temporary holding stack named NEW" with "Ok"
  domenu "new stack..."
  pop card
end m1

on m2
  set lockscreen to true
  go next card
  put the short id of this card into stop
  set lockscreen to false
  pop card
  set lockmessages to true
  repeat until the short id of this card is stop
    push this card
    domenu "copy card"
    go to last card of "new"
    domenu "paste card"
    pop card
    go next card
  end repeat
  go to first card of "new"
  domenu "delete card"
  set lockmessages to false
  domenu "compact stack"
end m2

--function clickline
return ((item 2 of the clickloc - item 2 of the rect of the target) div the textheight of the target) + 1
end clickline

--on openfield
put clickline() into msg
pass openfield
end openfield

on domenu var
  if var is "help" then
    go to card random(the number of cards)
  end if
  pass domenu
end domenu

on cantunderstand
  put "Speak english, I don't understand you!"
end cantunderstand